home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 106 - Proboard KEY Floppy - Must be in Drive 1.dsk / TIMETRACKER.MOD / TT.EDITOR.S < prev   
Text File  |  1989-06-04  |  2KB  |  84 lines
  1.  
  2. ; |||||||||||||||||||||||||||||||
  3.  
  4. ;  TimeTracker.Editor.s by jpe
  5.  
  6. ;  ProBOARD 805-239-4292 24 hrs.
  7.  
  8. ; |||||||||||||||||||||||||||||||
  9.  
  10.  
  11. ; ProBOARD Custom Mods June 4th, 1989 @ 01:15 AM
  12.  
  13.  
  14. Askii
  15.  input @2\"Enter user number to Edit: " i$
  16.  if i$="" end
  17.  xn=val(i$):f$="b1:monthly.time":print\"Is Your File Named "f$" ? ";
  18.  print"(Y/n): ";
  19.  get i$:if i$=chr$(13) print" ";
  20.  print chr$(8)" "chr$(8);
  21.  if i$="N" or i$="n" print"Nope":goto change 
  22.  print"Yep"
  23.  
  24. Redoer
  25.  open #1,f$:position #1,128,xn:input #1,o9$,o8,tt,o7,o9:close:o8=o8/60
  26.  
  27. Rd
  28.  print\"Current Month For Number "xn" is "o9$" Correct? ";
  29.  print"(Y/n): ";
  30.  get i$:if i$=chr$(13) print" ";
  31.  print chr$(8)" "chr$(8);
  32.  if i$="N" or i$="n" print"Nope":goto chng 
  33.  print"Yep"
  34.  
  35. Rd1
  36.  print\"Current Setting For Number "xn\" is Approx. "o7" Hrs "o8" mins. For "o9$" Change This? ";
  37.  print"(y/N): ";
  38.  get i$:if i$=chr$(13) print" ";
  39.  print chr$(8)" "chr$(8);
  40.  if i$="Y" or i$="y" print"Yep":goto chng1
  41.  print"Nope"
  42.  
  43. Redo1
  44.  print\"Number "xn" Has "tt" Additional Hours To Date."
  45.  print"Change This Data? ";
  46.  print"(y/N): ";
  47.  get i$:if i$=chr$(13) print" ";
  48.  print chr$(8)" "chr$(8);
  49.  if i$="Y" or i$="y" print"Yep":goto chng2
  50.  print"Nope"
  51.  
  52. Doer
  53.  Print\"Set Number "xn" To "o7" Hrs "o8" Mins,"
  54.  print"for the Month of "o9$" With "\tt" Additional Hours, Correct? ";
  55.  print"(Y/n): ";
  56.  get i$:if i$=chr$(13) print" ";
  57.  print chr$(8)" "chr$(8);
  58.  if i$="N" or i$="n" print"Nope":goto askii
  59.  print"Yep":o8=o8*60
  60.  open #1,f$:position #1,128,xn:print #1,o9$,o8,tt,o7,o9:close
  61.  print\"Changes Saved..."\\\\"Hit Return To Quit":goto askii
  62.  
  63. Change
  64.  input @3\"Enter Your Files Complete Pathname: " f$
  65.  if i$="" goto askii
  66.  print\"Got it Thanks...":goto redoer
  67.  
  68. Chng
  69.  input @3\"Change Month To: " i$
  70.  if i$="" goto askii
  71.  o9$=i$:goto rd
  72.  
  73. Chng1
  74.  input @3\"Enter Number Of Hours To Set Them To: " ii$
  75.  input @3\"Enter Number Of Minutes To Set Them To: " i$
  76.  o7=val(ii$):o8=val(i$):goto rd1
  77.  
  78. Chng2
  79.  input @3\"Enter Number Of Hours To Set Them To: " i$
  80.  if i$="" goto askii
  81.  tt=val(i$):goto redo1
  82.  
  83. ; EOF
  84.